home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Show on Desktop.xpl < prev    next >
Text File  |  2002-04-12  |  2KB  |  79 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Appearance\Desktop\Icons\Visible Icons"
  5. "NAME"="Generic Window Icons"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.09"
  8. "TEXT 1"="Recycle Bin"
  9. "TEXT 2"="Printer"
  10. "TEXT 3"="Control Panel"
  11. "TEXT 4"="Scheduled Tasks"
  12. "TEXT 5"="Outlook/Inbox" 
  13. "DESCRIPTION 1"="To show an item on the desktop, activate it. To hide it, deactivate it."
  14. "DESCRIPTION 2"="In order to activate the changes, it may be necessary to refresh the Desktop or to press the F5 Key."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19. "COMMENT 2"="Thanks to Siegfried Burgstedt for his fix!"
  20. "COMMENT 3"=" "
  21. "COMMENT 4"="from lockergnome.com:
  22. "COMMENT 5"="Adam Rao <adam_rao@hotmail.com>: What exactly is a "Recyle Bin"? :)"
  23. "COMMENT 6"="Pierre Szwarc <szwarc@usa.net>: Its an invisible Recycle Bin (you don't 'C' it) <G>"
  24.  
  25.  
  26.  
  27.  
  28. '******************************************************************
  29. '***                MASTER TEMPLATE (1 of X)                   ****
  30. '******************************************************************
  31. sVals=Array("{645FF040-5081-101B-9F08-00AA002F954E}","{2227A280-3AEA-1069-A2DE-08002B30309D}","{21EC2020-3AEA-1069-A2DD-08002B30309D}","{D6277990-4C6A-11CF-8D87-00AA0060F5BF}","{00020D75-0000-0000-C000-000000000046}")
  32. '******************************************************************
  33. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  34. '******************************************************************
  35. sPath="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\"
  36.  
  37.  
  38.  
  39. Sub Plugin_Initialize 
  40.  for i=0 to GetUIElementsCount-1
  41.      s=sPath & sVals(i)
  42.  
  43.      if RegPathExists(s) then SetUIElement i+1,true
  44.  next 
  45. End Sub
  46.  
  47. Sub Plugin_CheckData(ElementIndex)
  48. End Sub
  49.  
  50. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  51.  for i=0 to GetUIElementsCount-1
  52.      b=GetUIElement(i+1)
  53.      s=sPath & sVals(i)
  54.  
  55.      if b=true then
  56.         Call RegWriteValue(s & "\@","",1)
  57.      else
  58.  
  59.         if RegPathExists(s) then
  60.            if RegValueExists(s & "\Removal Message") then
  61.               Call RegDeleteValue(s & "\Removal Message")
  62.            end if
  63.            
  64.            'finally delete the path 
  65.            Call RegDeletePath(s)
  66.        end if
  67.      end if
  68.  next 
  69.  
  70.  Call IndicateSettingChange()
  71. End Sub
  72.  
  73.  
  74. Sub Plugin_Terminate 
  75. End Sub
  76.  
  77.  
  78.  
  79.